#Include "src/message.bas"
#include "src/sock.bi"

Function BotMain Alias "BotMain" ( rawmsg As String ) As message Export

Dim as message n
Dim as integer totalplugins
Dim as IRC.message myMessage

myMessage.parse( rawmsg )

dim as string temp=myMessage.param (myMessage.trailing)

if instr(lcase(temp), "^about") then
    n.dest=myMessage.param(0)
    n.msg = "RedBall v0.02.19 by _spaz and King_anarky. Accepted commands: ^insult, ^news. RedBall coded entirely in FreeBasic CVS Update March 26, 2007."
    n.msgtype=1
endif

Return n
End Function
